home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Tele / B / BBS stack.cpt / BBS stack / background_2648.txt < prev    next >
Text File  |  1989-04-11  |  8KB  |  354 lines
  1. -- background: 2648 from stack: in
  2. -- bmap block id: 3242
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: NORMAL BACKGROUND
  6.  
  7.  
  8. -- part 71 (field)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=75 top=22 right=36 bottom=501
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: phone number
  20.  
  21.  
  22. -- part 91 (button)
  23. -- low flags: 00
  24. -- high flags: 2000
  25. -- rect: left=472 top=312 right=335 bottom=502
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 27009 / 27009
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: NEXT
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   visual effect scroll left
  37.   go to next card
  38. end mouseUp
  39.  
  40.  
  41. -- part 97 (button)
  42. -- low flags: 00
  43. -- high flags: 2000
  44. -- rect: left=457 top=287 right=311 bottom=485
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 11045 / 11045
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: HOME
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   visual effect zoom close
  56.   getHomeInfo
  57.   go home
  58. end mouseUp
  59.  
  60.  
  61.  
  62.  
  63. -- part 98 (button)
  64. -- low flags: 00
  65. -- high flags: 2000
  66. -- rect: left=439 top=310 right=337 bottom=469
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 9301 / 9301
  69. -- text alignment: 1
  70. -- font id: 0
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 16
  74. -- part name: PREV
  75. ----- HyperTalk script -----
  76. on mouseUp
  77.   visual effect scroll right
  78.   go to previous card
  79. end mouseUp
  80.  
  81.  
  82. -- part 139 (button)
  83. -- low flags: 00
  84. -- high flags: A000
  85. -- rect: left=258 top=290 right=335 bottom=291
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 32670 / 32670
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: SCAN
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   show message box at 20,298
  97.   put "Click the mouse to stop the scanning..."
  98.   repeat until the mouseclick
  99.     visual effect dissolve
  100.     go to next card
  101.     wait 1 seconds
  102.   end repeat
  103.   hide message box
  104. end mouseUp
  105.  
  106.  
  107.  
  108.  
  109. -- part 155 (button)
  110. -- low flags: 00
  111. -- high flags: A000
  112. -- rect: left=205 top=289 right=336 bottom=241
  113. -- title width / last selected line: 65535
  114. -- icon id / first selected line: -15903 / 49633
  115. -- text alignment: 1
  116. -- font id: 0
  117. -- text size: 12
  118. -- style flags: 0
  119. -- line height: 16
  120. -- part name: DIAL
  121. ----- HyperTalk script -----
  122. on mouseUp
  123.   get userlevel
  124.   if it = 1
  125.   then set userLevel to 2
  126. else
  127.   if it = 5
  128.   then set userlevel to it
  129. end if
  130. get loc of field "Info"
  131. click at it
  132. type tab
  133. DoMenu Copy Text
  134. If highlite of background button ID 159 is true and highlite of background button ID 156 is true then
  135.   Open "Dial1200.PROC" with "Red Ryder"
  136. else
  137.   If highlite of background button ID 159 is true and highlite of background button ID 157 is true then
  138.     Open "Dial2400.PROC" with "Red Ryder"
  139.   else
  140.     If highlite of background button ID 159 is true and highlite of background button ID 158 is true then
  141.       Open "Dial9600.PROC" with "Red Ryder"
  142.     else
  143.       If highlite of background button ID 160 is true and highlite of background button ID 156 is true then
  144.         Open "Dial1200.MP" with "MicroPhone"
  145.       else
  146.         If highlite of background button ID 160 is true and highlite of background button ID 157 is true then
  147.           Open "Dial2400.MP" with "MicroPhone"
  148.         else
  149.           If highlite of background button ID 160 is true and highlite of background button ID 158 is true then
  150.             Open "Dial9600.MP" with "MicroPhone"
  151.           end if
  152.         end if
  153.       end if
  154.     end if
  155.   end if
  156. end if
  157.  
  158. end mouseUp
  159.  
  160.  
  161.  
  162. -- part 156 (button)
  163. -- low flags: 00
  164. -- high flags: 8006
  165. -- rect: left=19 top=317 right=335 bottom=74
  166. -- title width / last selected line: 0
  167. -- icon id / first selected line: 0 / 0
  168. -- text alignment: 1
  169. -- font id: 0
  170. -- text size: 12
  171. -- style flags: 0
  172. -- line height: 16
  173. -- part name: 1200
  174. ----- HyperTalk script -----
  175. on mouseUp
  176.   set highlite of bkgnd button ID 156 to true
  177.   set highlite of bkgnd button ID 157 to false
  178.   set highlite of bkgnd button ID 158 to false
  179. end mouseUp
  180.  
  181.  
  182.  
  183. -- part 157 (button)
  184. -- low flags: 00
  185. -- high flags: C006
  186. -- rect: left=80 top=318 right=335 bottom=134
  187. -- title width / last selected line: 0
  188. -- icon id / first selected line: 0 / 0
  189. -- text alignment: 1
  190. -- font id: 0
  191. -- text size: 12
  192. -- style flags: 0
  193. -- line height: 16
  194. -- part name: 2400
  195. ----- HyperTalk script -----
  196. on mouseUp
  197.   set highlite of bkgnd button ID 156 to false
  198.   set highlite of bkgnd button ID 157 to true
  199.   set highlite of bkgnd button ID 158 to false
  200. end mouseUp
  201.  
  202.  
  203.  
  204. -- part 158 (button)
  205. -- low flags: 00
  206. -- high flags: 8006
  207. -- rect: left=138 top=317 right=335 bottom=192
  208. -- title width / last selected line: 0
  209. -- icon id / first selected line: 0 / 0
  210. -- text alignment: 1
  211. -- font id: 0
  212. -- text size: 12
  213. -- style flags: 0
  214. -- line height: 16
  215. -- part name: 9600
  216. ----- HyperTalk script -----
  217. on mouseUp
  218.   set highlite of bkgnd button ID 156 to false
  219.   set highlite of bkgnd button ID 157 to false
  220.   set highlite of bkgnd button ID 158 to true
  221. end mouseUp
  222.  
  223.  
  224.  
  225. -- part 159 (button)
  226. -- low flags: 00
  227. -- high flags: C006
  228. -- rect: left=9 top=295 right=313 bottom=97
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 0 / 0
  231. -- text alignment: 1
  232. -- font id: 0
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: Red Ryder
  237. ----- HyperTalk script -----
  238. on mouseUp
  239.   set highlite of background button ID 159 to true
  240.   set highlite of background button ID 160 to false
  241. end mouseUp
  242.  
  243.  
  244.  
  245. -- part 160 (button)
  246. -- low flags: 00
  247. -- high flags: 8006
  248. -- rect: left=100 top=296 right=312 bottom=202
  249. -- title width / last selected line: 0
  250. -- icon id / first selected line: 0 / 0
  251. -- text alignment: 1
  252. -- font id: 0
  253. -- text size: 12
  254. -- style flags: 0
  255. -- line height: 16
  256. -- part name: MicroPhone
  257. ----- HyperTalk script -----
  258. on mouseUp
  259.   set highlite of background button ID 159 to false
  260.   set highlite of background button ID 160 to true
  261. end mouseUp
  262.  
  263.  
  264.  
  265. -- part 179 (button)
  266. -- low flags: 00
  267. -- high flags: A000
  268. -- rect: left=302 top=290 right=335 bottom=336
  269. -- title width / last selected line: 0
  270. -- icon id / first selected line: 8538 / 8538
  271. -- text alignment: 1
  272. -- font id: 0
  273. -- text size: 12
  274. -- style flags: 0
  275. -- line height: 16
  276. -- part name: FIND
  277. ----- HyperTalk script -----
  278. on mouseUp
  279.   ask "Enter text to search for:"
  280.   put it into searchtext
  281.   show message box at 20,298
  282.   put "Click the mouse to stop the searching..."
  283.   repeat until the mouseclick
  284.     Find chars searchtext
  285.     wait 1 seconds
  286.     visual effect dissolve
  287.   end repeat
  288.   hide message box
  289. end mouseUp
  290.  
  291.  
  292. -- part 83 (field)
  293. -- low flags: 00
  294. -- high flags: 0007
  295. -- rect: left=6 top=38 right=286 bottom=506
  296. -- title width / last selected line: 0
  297. -- icon id / first selected line: 0 / 0
  298. -- text alignment: 0
  299. -- font id: 3
  300. -- text size: 9
  301. -- style flags: 0
  302. -- line height: 12
  303. -- part name: Info
  304. ----- HyperTalk script -----
  305.  
  306.  
  307.  
  308.  
  309. -- part 194 (button)
  310. -- low flags: 00
  311. -- high flags: A000
  312. -- rect: left=346 top=289 right=336 bottom=382
  313. -- title width / last selected line: 0
  314. -- icon id / first selected line: 20186 / 20186
  315. -- text alignment: 1
  316. -- font id: 0
  317. -- text size: 12
  318. -- style flags: 0
  319. -- line height: 16
  320. -- part name: SORT
  321. ----- HyperTalk script -----
  322. on mouseUp
  323.   --
  324.   put empty
  325.   show message box at 19,134
  326.   put "Now sorting the listings by area code..."
  327.   --
  328.   sort by field 1
  329.   --
  330.   beep
  331.   put "sorting completed!"
  332.   hide message box
  333. end mouseUp
  334.  
  335.  
  336.  
  337. -- part 195 (button)
  338. -- low flags: 00
  339. -- high flags: A000
  340. -- rect: left=393 top=290 right=335 bottom=428
  341. -- title width / last selected line: 0
  342. -- icon id / first selected line: 17481 / 17481
  343. -- text alignment: 1
  344. -- font id: 0
  345. -- text size: 12
  346. -- style flags: 0
  347. -- line height: 16
  348. -- part name: NEW
  349. ----- HyperTalk script -----
  350. on mouseUp
  351.   DoMenu "New Card"
  352. end mouseUp
  353.  
  354.